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entity Tl is 

port ( RESET, CLK :IN stdjogic; 

APORT, BPORT, CPORT, DPORT : IN std_logic_vector (7 downto 0); 
E : IN std_logic; 

OPORT : OUT std_logic_vector (7 downto 0) ); 

endTl; 
architecture RTL of Tl is 

type STATE_TYPE is ( SO, SI, S2, S3); 
signal CURRENT_STATE, NEXT_STATE : STATE_TYPE; 
SIGNAL A, B, C, D, F, G, O, NEXT_A, NEXT_B, NEXTjC, NEXT_D, 
NEXT_F, NEXT_G, NEXT_0 : std_logic_vector (7 downto 0); 

begin 

COMBIN : process (CURRENT STATE) 
begin 

NEXT_A <= A; NEXT_B <= B; NEXT_C <= C; NEXT_D <= D; 
NEXT_F <= F; NEXT_G <- G; NEXT_0 <= O; OPORT <= O; 
case CURRENT_STATE is 
when SO => 

NEXT_A <= APORT; NEXT_B <= BPORT; 
NEXT_C <= CPORT; NEXT D <= D; 
NEXT_G <- "00000000"; 
when SI => 

if(C<D) then 

NEXT_F <= A + B; — 
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NEXT_STATE <= S2; 



else 



NEXT_F<=A-B; 
NEXT_STATE <= S3; 

end if; 
when S2 => 

NEXTG <= F+ G; 
if(E='0')then 

NEXT STATE <=S1; 

else 

NEXT_STATE <= S3; 

end if; 
when S3 => 

NEXT_0 <=G-3; 
NEXT_STATE <= SO; 

end case; 
end process; 
SYNCH : process (CLK, RESET) 
begin 

if ( CLK'event and CLK = '1' ) then 
if( RESET = '1') then 

CURRENT_STATE <= SO; 

else 

A <- NEXT_A; B <= NEXT_B; C <= NEXT_C; D <= NEXT_D; 
G <= NEXT_G; F <= NEXT_F; O <= NEXT_0; 

end if; 

end if; 
end process; 



end RTL; 
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